home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / perl / msds-prl / ptchds19.zoo / nohigh_bat < prev    next >
Text File  |  1992-02-23  |  1KB  |  42 lines
  1. MS-DOS patches to perl.
  2. Apply this patch to the standard perl source, version 4, patch level 19,
  3. using "patch -p."  Do this in the root directory of the perl source
  4. distribution.
  5.  
  6. You can cat all these patches together and pipe the output to patch -p.
  7.  
  8. Len Reed
  9. Holos Software, Inc.
  10. ..!gatech!holos0!lbr
  11. holos0!lbr@gatech.edu
  12. --------------------------------------
  13. *** msdos/eg/nohigh.bat.old    Sun Feb 23 08:48:16 1992
  14. --- msdos/eg/nohigh.bat    Thu Nov 14 08:57:24 1991
  15. ***************
  16. *** 0 ****
  17. --- 1,24 ----
  18. + @REM=("
  19. + @perl -p %0.bat %1 %2 %3 %4 %5 %6 %7 %8 %9
  20. + @end ") if 0 ;
  21. + 
  22. + # Usage: invoke with -p switch
  23. + 
  24. + # Strip highlighting from a formatted manual, for those who
  25. + # can't deal with the highlighting.
  26. + 
  27. + # Nroff puts in hightlighting as follows:
  28. + #    Boldface is cBcBc for each bold c
  29. + #    Underlining is _Bc for each underlined c.
  30. + # where B is a backspace.  In perl, as in C, a backspace is Ascii \010.
  31. + 
  32. + # We simply strip every character preceding a backspace and the backspace.
  33. + # Reads from file list (or STDIN) and writes to STDOUT.
  34. + # (Or can invoke with -i for edit-in-place.)
  35. + #
  36. + # By Len Reed.
  37. + 
  38. + s/.\010//g;
  39. + 
  40. + @REM=(qq!
  41. + :end !) if 0 ;
  42.